home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / fontboun.lha / Font_Bouncing.s < prev    next >
Encoding:
Text File  |  1993-10-04  |  2.1 KB  |  127 lines
  1. ;GCC INC. 88
  2. STARTUP:
  3.     MOVEM.L     D0-D7/A0-A6,-(A7)    
  4.     LEA    $50000,A0
  5.     MOVE.W    #5800,D0
  6. CL:    
  7.     MOVE.W #0,(A0)+ 
  8.     DBRA D0,CL
  9.     MOVE.L     $4,A6        
  10.     LEA     GFXNAME,A1             
  11.     JSR     -408(A6)        
  12.     MOVE.L     D0,GFXBASE        
  13.     MOVE.L     $4,A6        
  14.     MOVE.L     GFXBASE,A0        
  15.     ADD.L     #$32,A0            
  16.     MOVE.L     (A0),OLDCOPPER        
  17.     MOVE.L     #LISTE,(A0)
  18.     MOVE.W     #$0020,$DFF096 
  19.     MOVE.L     #$8010,$DFF09A
  20.     MOVE.L     $4,A6
  21.     LEA     GFXNAME,A1
  22.     JSR     -408(A6)
  23.     MOVE.L     D0,GFXBASE
  24.     MOVE.L     $4,A6
  25.     JSR     -132(A6)
  26.     MOVE.W     #$0020,$DFF09A
  27.     MOVE.L     $6C,OLDIRQ
  28.     MOVE.L   $68,OLDTASTIRQ
  29.     MOVE.L   #NEWTASTIRQ,$68
  30.     MOVE.L     #IRQNEW,$6C
  31.     MOVE.W     #$8020,$DFF09A
  32.     BRA     MOUSE
  33.  
  34. IRQNEW:
  35.     MOVEM.L    D0-D7/A0-A6,-(SP)
  36.     JSR    BIG
  37.     BSR.W    ROUT
  38.     MOVEM.L    (SP)+,D0-D7/A0-A6
  39.     DC.W        $4EF9
  40.     OLDIRQ:
  41.     DC.L    0
  42.  
  43. NEWTASTIRQ:
  44.     MOVEM.L    D0-D7/A0-A6,-(SP)
  45.  
  46.     MOVEM.L    (SP)+,D0-D7/A0-A6
  47.     DC.W        $4EF9
  48. OLDTASTIRQ:
  49.     DC.L    0
  50.  
  51. MOUSE:
  52.     CMP.B     #$7F,$BFEC01
  53.     BNE.S     MOUSE
  54.     MOVE.L     $4,A6
  55.     MOVE.L     GFXBASE,A1
  56.     JSR     -414(A6)
  57.     MOVE.L     GFXBASE,A0    
  58.     ADD.L    #$32,A0        
  59.     MOVE.W     #$0080,$DFF096    
  60.     MOVE.L     OLDCOPPER,(A0)    
  61.     MOVE.W     #$8080,$DFF096    
  62.     MOVE.L     OLDIRQ,$6C
  63.     MOVE.L   OLDTASTIRQ,$68
  64.     MOVEM.L     (A7)+,D0-D7/A0-A6
  65.     RTS
  66. LISTE:
  67.     DC.W $0180,0
  68.     DC.W $2B01,$FFFE
  69.     DC.W $008E,$2C71,$0090,$30C1    
  70.     DC.W $0092,$0038,$0094,$00D0     
  71.     DC.W $0102,$0000,$0180,$0000
  72.     DC.W $0100,$1100,$0108,$0000
  73.     DC.W $010A,$0000,$00E0,$0005
  74.     DC.W $00E2,$0000,$0182,$0FFF
  75.     DC.W $FFFF,$FFFE 
  76. OLDCOPPER: DC.L 0
  77. GFXNAME: DC.B "graphics.library",0
  78.     EVEN
  79. GFXBASE: DC.L 0
  80. BIG:     LEA CHAR1,A0
  81.     MOVE.L POS,A1
  82.     MOVE.W #9,D0
  83. WRITE2:    MOVE.W ANZAHL,D1
  84. WRITE:    MOVE.W (A0),(A1)+
  85.     ADD.L    #40-2,A1
  86.     DBRA     D1,WRITE
  87.     ADD.L    #2,A0
  88.     DBRA    D0,WRITE2
  89. CLEARREST:
  90.     MOVE.W    #$0000,D0
  91.     MOVE.W    #40*5,D1
  92. DOCL:    MOVE.W    D0,(A1)+
  93.     DBRA    D1,DOCL    
  94.     RTS
  95. CHAR1: 
  96.     DC.W %1111111111111111
  97.     DC.W %1111111111111111
  98.     DC.W %1111111000000000
  99.     DC.W %1111111000000000
  100.     DC.W %1111111000000000
  101.     DC.W %1111111001111111
  102.     DC.W %1111111001111111
  103.     DC.W %1111111000011111
  104.     DC.W %1111111111111111
  105.     DC.W %1111111111111111
  106. ROUT: 
  107.     CMP.W     #0,DEL
  108.     BEQ.S    UP
  109.     CMP.W    #1,DEL
  110.     BEQ.S    DWN
  111.     
  112. UP:    ADD.W    #1,ANZAHL
  113.     CMP.W    #25,ANZAHL
  114.     BNE    BYE
  115.     MOVE.W    #1,DEL
  116. BYE:    RTS
  117. DWN:    SUB.W    #1,ANZAHL
  118.     CMP.W    #0,ANZAHL
  119.     BNE    BYE
  120.     MOVE.W    #0,DEL
  121.     RTS
  122.  
  123. DEL:    DC.W 0
  124. ANZAHL: DC.W 0    
  125. POS: DC.L $50000
  126.  
  127.